Tech Arsenal 1/Tech Arsenal (Arsenal Computer).ISO/tek-05/pdclk139.zip/TBLBUILD.ASM

Assembly Source File | 1992-05-11 | 21KB | 1,175 lines

;========================================================================

; Copyright (C) 1991 by [e-mail], see file COPYING.

InAdrArpa    db    7,"in-addr",4,"arpa",0
Qtype        dw    0c00h
Qclass        dw    0100h
InAdrArpaLen    equ    $-InAdrArpa

k16        dw    16
TblSize        dw    16
TblSizeLast    dw    16*16
TblActive    dw    0
TblActLast    dw    0
TblWrNext    dw    0
TblIpProbe    dw    130+256*235, 56+256*0
TblProbeNext    dw    0
TblProbIntvl    dw    9

TmpTbl        dw    0, 0, 0, 0, 0, 0, 0

SegmData    equ    $
SegIpHwTbl    dw    0
SegHwIpTbl    dw    0
SegmNamTbl    dw    0
SegmNamTbl2    dw    0
TableSegs    equ    ($-SegmData)/2

Handle        dw    -1
if DEBUG
NameHwTbl    db    "hwtbl.tmp", 0
NameIpTbl    db    "iptbl.tmp", 0
else
NameHwTbl    db    "hwtbl.txt", 0
NameIpTbl    db    "iptbl.txt", 0
endif ; DEBUG

MsgTblSize    db    "Wrote 0    table entries, "
MsgTblAct    db    "0    active this run.", CR, LF, '$'


;************************************************************************
;*        FindIn16Table
;*
;*    Input:         DS:SI = address of search string key (saved)
;*            AX = string length (saved)
;*            ES = table segment (saved)
;*            BX = table size in bytes
;*    Output:         ES:BX = table slot address of entry less or equal to key
;*            Zero flag if equal to key
;*    Destroys:    BX, flags
;*
;* Before use, the table must be filled with all ones, except slot 0 which
;* must be filled with zeros. Slot 0 may never be changed.
;************************************************************************

FindIn16Table    proc    near
        push    cx
        push    dx
        push    di
        push    bp
        mov    bp,si
        mov    dx,16            ; find enclosing 2**x size
  FindLenLoop:
        shl    dx,1
        cmp    dx,bx
        jb    FindLenLoop

        mov    bx,dx            ; start binary search
  FindLess:
        sub    bx,dx
  FindGreater:
        shr    dx,1            ; divide step by two
        cmp    dx,16            ; step < slot size?
        jb    FindDone

        add    bx,dx            ; position halfway

        mov    di,bx
        mov    si,bp
        mov    cx,ax
        repe    cmpsb            ; compare strings
        ja    FindGreater
        jb    FindLess
  FindDone:
        mov    si,bp
        pop    bp
        pop    di
        pop    dx
        pop    cx
        ret
FindIn16Table    endp



;************************************************************************
;*        GetHexNums
;************************************************************************

GetHexNums    proc    near
  GetHexNum:
        xor    dx,dx
  GetHexDig:
        lodsb
        cmp    al,'0'
        jb    GetHexEnd
        cmp    al,'9'
        ja    GetHexTst
        sub    al,'0'
        jmp    short GetHexConv
  GetHexTst:
        cmp    al,'a'
        jb    GetHexEnd
        cmp    al,'f'
        ja    GetHexEnd
        sub    al,'a'-10
  GetHexConv:
        cbw
        add    ax,dx
        mov    cx,ax
        mul    k16
        mov    dx,ax
        jmp    short GetHexDig
  GetHexEnd:
        cmp    al,'-'
        mov    ax,cx
        stosb
        je    GetHexNum
        ret
GetHexNums    endp



;************************************************************************
;*        Ins16ByteSlot
;************************************************************************

Ins16ByteSlot    proc    near
        mov    cx,TblSize
        push    es
        pop    ds
        sub    cx,bx
        mov    si,bx
        sub    si,2
        add    si,cx
        mov    di,si
        add    di,16
        std
        shr    cx,1
        rep    movsw
        cld
        push    cs
        pop    ds
        ret
Ins16ByteSlot    endp



;************************************************************************
;*        FindHostInTbls
;************************************************************************

FindHostInTbls    proc    near
        push    dx
        push    ax

        mov    es,SegHwIpTbl
        mov    bx,TblSize
        mov    ax,10
        mov    si,bp
        call    FindIn16Table
        jz    InitHwMatch

        add    bx,16
        call    Ins16byteSlot
        mov    si,bp
        mov    cx,10/2
        mov    di,bx
        rep    movsw

        mov    ax,TblSize
        stosw
  InitHwMatch:
        mov    es,SegIpHwTbl
        mov    bx,TblSize
        mov    ax,10
        mov    si,bp
        sub    si,4
        call    FindIn16Table
        jz    InitIpMatch

        add    bx,16
        call    Ins16byteSlot
        mov    si,bp
        sub    si,4
        mov    cx,10/2
        mov    di,bx
        rep    movsw

        mov    ax,TblSize
        stosw
                mov     ax,'  '
                stosw
  InitIpMatch:
        pop    ax
        pop    dx
        ret
FindHostInTbls    endp



;************************************************************************
;*        TableInit
;************************************************************************

TableInit    proc    near
        test    Argflags,MAKE_TABLE
        jnz    TableInit2
        ret
  TableInit2:
        mov    bx,(TableSegs-1)*2
        mov    dx,cs
        add    dx,1000h
                mov     ax,'  '                 ; NamTbl2 must be blanked
  TableFF:
        mov    word ptr SegmData[bx],dx
        mov    es,dx
        add    dx,1000h
                cmp     dx,PspTopMem            ; end of free memory?
        jbe    TableFits

        mov    al,'M'-'0'
        call    terminate
  TableFits:
                mov     cx,08000h               ; prefill all 64 kb
        xor    di,di
        rep    stosw

        sub    bx,2
                mov     ax,0ffffh               ; IpHwTbl prefill
        jns    TableFF

                xor     ax,ax                   ; zerofill first slot
        mov    es,SegIpHwTbl
        mov    cx,16/2
        xor    di,di
        rep    stosw

        mov    es,SegHwIpTbl
        mov    cx,16/2
        xor    di,di
        rep    stosw

        push    cs
        pop    es

        mov    dx,offset NameHwTbl
        mov    ax,3d02h
        int    21h
        jc    TabInitHw

        mov    bx,ax
        mov    ah,3eh
        int    21h
        jmp    TabTstIp
  TabInitHw:
        mov    dx,offset NameHwTbl
        xor    cx,cx
        mov    ah,3ch
        int    21h
        jc    TabOpenErr
  TabTstIP:
        mov    dx,offset NameIpTbl
        mov    ax,3d02h
        int    21h
        mov    Handle,ax
        jnc    TabRdNext

        mov    dx,offset NameIpTbl
        xor    cx,cx
        mov    ah,3ch
        int    21h
        jc    TabOpenErr
        jmp    TabRdClOK
  TabOpenErr:
        mov    al,'O'-'0'
        call    terminate

  TabRdNext:
        push    cs
        pop    es
        mov    bx,Handle
        mov    cx,72
        mov    dx,offset FileBuf
        mov    ah,3fh
        int    21h
        jc    TabRdErr

        or    ax,ax
        jz    TabRdEof

        mov    si,offset FileBuf
        cmp    byte ptr [si],'Z'-040h
        je    TabRdEof
        mov    di,offset TmpTbl
        mov    bp,di
        call    GetIpNr
        jnz    TabRdErr

        mov    si,offset FileBuf+53
        call    GetHexNums
        cmp    byte ptr [si],LF
        jne    TabRdErr

        mov    si,bp
        movsw
        movsw

        add    bp,4
        call    FindHostInTbls
        je    InitDup

        mov    si,offset FileBuf+16
        mov    di,TblSize
        call    NamePut
        add    TblSize,16
  InitDup:
        push    cs
        pop    es
        mov    byte ptr FileBuf+72,'$'

        mov    dx,offset FileBuf
        mov    ah,9
        int    21h
        jmp    TabRdNext

  TabRdErr:
        mov    al,'R'-'0'
        call    terminate

  TabRdEof:
        mov    bx,Handle
        mov    ah,3eh
        int    21h
        jnc    TabRdClOK

        mov    al,'C'-'0'
        call    terminate
  TabRdClOK:
if DEBUG eq 0
        call    ProbeIpInit
endif ; not DEBUG
        call    CurrentTicks
        mov    TblProbeNext,cx
        mov    TblWrNext,cx
        cmp    EchoTarget,0
        jnz    TableInitRet
        or    GenFlags,TBL_READY
  TableInitRet:
        ret
TableInit    endp



ProbeIpInit    proc    near
        mov    dx,MyNet
        mov    ax,Mynet+2
        mov    TblIpProbe,dx
        inc    ah
        mov    TblIpProbe+2,ax
        ret
ProbeIpInit    endp



;************************************************************************
;*        TblProbe
;************************************************************************

TblProbe     proc    near
        cmp    InSendAndW,0
        jnz    TblProbeRet

        test    GenFlags,TBL_READY
        jz    TblProbeRet

        call    CurrentTicks
        mov    ax,cx
        sub    ax,TblProbIntvl        ; 2 - 9 probes a second
        sub    ax,TblProbeNext
        js    TblProbeRet

        mov    TblProbeNext,cx

        mov    ax,cx
        sub    ax,TblWrNext
        js    TblWrLater

        add    cx,182*20        ; limit write to once in 200 s
        mov    TblWrNext,cx

        mov    ax,TblSize
        mov    dx,TblActive
        cmp    dx,TblActLast
        ja    TblProbeWr

        cmp    ax,TblSizeLast
        jbe    TblWrLater
  TblProbeWr:
        mov    TblActLast,dx
        mov    TblSizeLast,ax
        call    TableWr
  TblWrLater:
        test    ArgFlags,TBL_PROBE
        jnz    TblDoProbe
  TblProbeRet:
        ret

  TblDoProbe:
        cmp    TblProbIntvl,2
        jbe    TblProbMin
        dec    TblProbIntvl
  TblProbMin:

        mov    dx,TblIpProbe
        mov    ax,TblIpProbe+2
        cmp    ax,ArpTabIp2+2        ; end of subnet numbers?
        jne    TblProbeMore
        cmp    dx,ArpTabIp1+2
        jne    TblProbeMore
        call    ProbeIpInit
  TblProbeMore:
        call    BufAlloc
        mov    [bx].dTimOutMsg,0    ; we don't require an answer
        mov    [bx].dTickTimeout,0    ; don't wait
        call    SendArpReq        ; send arp
        call    BufRelease

        add    ah,1            ; increment IP #
        adc    al,0
        adc    dh,0
        adc    dl,0
        mov    TblIpProbe,dx
        mov    TblIpProbe+2,ax
        ret
TblProbe    endp



;************************************************************************
;*        DoTable
;************************************************************************

DoTable     proc    near
        mov    di,[bx].dPtrPhys
        mov    si,[di]
        mov    dx,[di+2]
        mov    ax,[di+4]
        call    ArpFindHw
        mov    [bx].dIdxHwDst,di

        mov    di,[bx].dPtrIp
        mov    cx,[di].iArpOp
        add    di,iArpMyHwAd
        mov    bp,di
        add    di,6
        mov    dx,[di]
        mov    ax,[di+2]
        mov    [bp-4],dx
        mov    [bp-4+2],ax
        push    bx

        cmp    cx,0200h        ; ignore arp REPLIES from hosts
        jne    DoTabUpdate        ; already known (probably a
        cmp    [bx].dIdxHwDst,ARPMYIDX    ; proxy arp gateway)
        jne    DoTabUpdate

        push    ax
        mov    es,SegHwIpTbl
        mov    si,bp
        mov    ax,10
        mov    bx,TblSize
        call    FindIn16Table        ; this Hw+IP addr already known?
        pop    ax
        je    DoTabUpdate

        push    ax
        mov    si,bp
        mov    ax,6
        mov    bx,TblSize
        call    FindIn16Table        ; this Hw addr already known?
        pop    ax
        je    TableAnswered
  DoTabUpdate:
        call    FindHostInTbls
        jne    TableAdd

        cmp    byte ptr es:[bx+12],' '
        je    TableNew

        cmp    byte ptr es:[bx+12],'s'
        jb    TablePending
  TableNew:
        mov    byte ptr es:[bx+12],'p'
        inc    TblActive
        jmp    short TableAsk
  TablePending:
        cmp    byte ptr es:[bx+12],'p'
        jb    TableAnswered

        inc    byte ptr es:[bx+12]
  TableAnswered:
        push    cs
        pop    es
        pop    bx
        jmp    TableRetRel

  TableAdd:
        mov    byte ptr es:[bx+12],'p'
        inc    TblActive
        push    dx
        push    ax
        push    bx
        mov    si,bp
        add    si,6
        mov    di,TblSize
        mov    es,SegmNamTbl
        call    PutIpNum
        call    BlankUntil16
        add    TblSize,16
        pop    bx
        pop    ax
        pop    dx
  TableAsk:
        mov    TblProbIntvl,9        ; probe twice a second
        mov    es,SegIpHwTbl
        mov    cx,es:[bx+10]
        push    cx            ; save name tbl idx

        push    cs
        pop    es

        xor    ch,ch
        mov    cl,dh
        xor    dh,dh
        push    dx
        push    cx
        mov    cl,ah
        xor    ah,ah
        push    ax
        push    cx

        mov    di,offset FileBuf
        mov    bl,4
        mov    PutMinDigits,1
  TableNumLoop:
        mov    si,di
        inc    di
        pop    ax
        call    PutNum
        mov    [si],dl
        dec    bl
        jnz    TableNumLoop

        mov    si,offset InAdrArpa
        mov    cx,InAdrArpaLen
        rep    movsb

        mov    dx,1234h        ; tblbuild udp src port
        pop    ax            ; NsId
        mov    si,offset FileBuf    ; Ns question string
        call    NsResolve        ; ask name for this #
        pop    bx
  TableRetRel:
        call    BufRelease
  TableRet:
        ret
DoTable     endp



;************************************************************************
;*        BlankUntil16 byte boundry
;************************************************************************

BlankUntil16    proc    near
        mov    al,' '
  BlankMore:
        test    di,0fh
        jz    BlankRet
        stosb
        jmp    short BlankMore
  BlankRet:
        ret
BlankUntil16    endp



;************************************************************************
;*        NamePut from DS:SI to TblName[DI]
;************************************************************************

NamePut     proc    near
        mov    es,SegmNamTbl
        mov    cx,16
  NamePutLoop:
        lodsb
        cmp    al,CR
        je    NamePutEnd
        stosb
        loop    NamePutLoop

        sub    di,16
        mov    es,SegmNamTbl2
        mov    cx,16
  NamePutLoop2:
        lodsb
        cmp    al,CR
        je    NamePutEnd2
        stosb
        loop    NamePutLoop2

  NamePutEnd2:
        call    BlankUntil16
        jmp    short NamePutRet

  NamePutEnd:
        call    BlankUntil16

        mov    es,SegmNamTbl2
        sub    di,16
        stosb
        jmp    short NamePutEnd2
  NamePutRet:
        push    cs
        pop    es
        ret
NamePut     endp



;************************************************************************
;*        ThisIpFirst
;*    Input:        DI = length prepended IP list
;*            BX = IP description buffer pointer
;*    Output:        Moves source IP # to front of IP list
;************************************************************************

ThisIpFirst    proc    near
        mov    si,[bx].dPtrIp
        mov    dx,[si].iIpSrc
        mov    ax,[si].iIpSrc+2
        mov    cl,-1
        mov    ch,[di]            ; list length
  ThisIpNext2:
        inc    di
        inc    di
  ThisIpNext4:
        inc    cl
        cmp    cl,ch            ; more entries in list?
        jae    ThisIpRet

        xchg    ax,dx
        scasw                ; first IP word match?
        xchg    ax,dx
        jne    ThisIpNext2

        scasw                ; second IP word match?
        jne    ThisIpNext4

        dec    di
        lea    si,[di-4]
        std
        xor    ch,ch
        shl    cx,1
        rep    movsw            ; move entries downlist
        cld
        inc    si
        mov    [si],dx            ; insert src IP in front
        mov    [si+2],ax
  ThisIpRet:
        ret
ThisIpFirst    endp


;************************************************************************
;*        DoName
;************************************************************************

DoName        proc    near
        test    GenFlags,TBL_READY
        jnz    NameInited

        ret
  NameInited:
        lea    si,[di].uNsQuest
        mov    bp,[di].uNsId
        lea    di,[di].uNsNscount
        mov    dx,si
        inc    dx

  BS        equ    'H'-040h
        call    NameDecode
        mov    word ptr [si],'  '
        mov    word ptr [si+2],BS+256*BS
        add    si,4

        push    dx
        push    si
        mov    si,dx
        call    GetIpNr
        pop    si
        pop    dx

        mov    di,[bx].dPtrUdp
        cmp    [di].uNsAncount,0100h
        je    NameHaveAns
        push    dx
        jmp    short NameNoAnswer
  NameHaveAns:
        mov    di,si
        call    NameDecode
        jnz    NameDcCompr
        mov    dx,di
        inc    dx
  NameDcCompr:
  TAB        equ    'I'-040h
        push    dx
        mov    word ptr [si],TAB+256*'N'
        mov    word ptr [si+2],'ma'
        mov    word ptr [si+4],'0e'
        mov    word ptr [si+6],'00'
        mov    word ptr [si+8],'=0'
        lea    di,[si+5]
        add    si,10
        mov    ax,bp
        mov    cl,4
        shr    ax,cl
        mov    PutMinDigits,4
        call    PutNum
        mov    PutMinDigits,2

        mov    di,si
        call    NameDecode
  NameNoAnswer:
        mov    word ptr [si],' '+256*CR
        mov    word ptr [si+2],LF+256*'$'

        mov    si,[bx].dPtrUdp
        mov    ax,[si].uNsNScount
        mov    dx,[si].uNsNscount+2
        xchg    ah,al
        xchg    dh,dl
        mov    [si].uNsNScount,dx
        mov    [si].uNsNScount+2,ax
        lea    si,[si].uNsNScount
        push    bx
        mov    bx,TblSize
        mov    es,SegIpHwTbl
        push    ax
        mov    ax,4
        call    FindIn16Table
        pop    ax
        mov    si,bx
        pop    bx
        je    NameFound
  NameNotFound:
        pop    dx
        mov    ah,9
        int    21h
        mov    al,'A'-'0'
        call    Terminate
  NameFound:
        mov    cx,si
  NameFindNxtHi:
        cmp    bp,es:[si+10]
        je    NameFoundThis
        add    si,16
        cmp    dx,es:[si]
        jne    NameFindLower
        cmp    ax,es:[si+2]
        je    NameFindNxtHi
  NameFindLower:
        mov    si,cx
  NameFindNxtLo:
        sub    si,16
        cmp    bp,es:[si+10]
        je    NameFoundThis
        cmp    dx,es:[si]
        jne    NameNotFound
        cmp    ax,es:[si+2]
        jne    NameNotFound
        jmp    short NameFindNxtLo
  NameFoundThis:
        mov    bp,[bx].dPtrUdp
        mov    dx,[bp].uNsAncount
        mov    ax,[bp].uNsOpwd
        and    ah,0fh
        cmp    ah,1            ; format error?
        jne    NameFmtOK

        mov    al,'F'-'0'
        call    terminate
  NameFmtOK:
        mov    byte ptr es:[si+12],'t' ; try again next time

        cmp    ah,2            ; temporary server problem?
        je    NameSkipUpd

        test    al,4            ; authorititive answer?
        jz    NameTryLater

        mov    byte ptr es:[si+12],'0' ; we ask no more about this #
  NameTryLater:
        or    ah,ah            ; any other error?
        jnz    NameSkipUpd

        cmp    dx,0100h        ; any answer?
        jne    NameSkipUpd

        mov    byte ptr es:[si+12],'N' ; we ask no more about this #
        test    al,4            ; authorititive answer?
        jz    NameNotAuth

        mov    byte ptr es:[si+12],'A' ; we ask no more about this #
  NameNotAuth:
        mov    si,es:[si+10]
        xchg    si,di
        inc    si
        call    NamePut
  NameSkipUpd:
        push    cs
        pop    es
        pop    dx
        mov    ah,9
        int    21h

        or    Events,GOT_NSREPLY
        mov    di,offset DefNsNum
        call    ThisIpFirst        ; stick to this nameserver
  NameRet:
        ret
DoName        endp



;************************************************************************
;*        TabMarkGw
;************************************************************************

TabMarkGw    proc    near
        mov    bx,TblSize
        mov    ds,SegIpHwTbl
  TabMarkLoop:
        mov    si,bx
        mov    dx,[si]
        mov    ax,[si+2]
        mov    cx,cs:DefGwyNum
        mov    si,offset DefGwys
        jcxz    TabGwyDone
  TabGwyLoop:
        cmp    ax,cs:[si+2]
        jne    TabGwyNext
        cmp    dx,cs:[si]
        jne    TabGwyNext
        mov    byte ptr [bx+13],'+'
        jmp    short TabGwyDone
  TabGwyNext:
        add    si,4
        loop    TabGwyLoop
  TabGwyDone:
        sub    bx,16
        jns    TabMarkLoop

        mov    bx,cs:TblSize
  TabDupLoop:
        mov    si,bx
  TabMarkHwLoop:
        sub    si,16
        js    TabDupNext

        mov    ax,[si+4+4]
        cmp    ax,[bx+4+4]
        jne    TabMarkHwLoop
        mov    ax,[si+4+2]
        cmp    ax,[bx+4+2]
        jne    TabMarkHwLoop
        mov    ax,[si+4]
        cmp    ax,[bx+4]
        jne    TabMarkHwLoop

        cmp    byte ptr [si+13],'+'
        je    TabMarkHwDup

        mov    byte ptr [si+13],'>'
        cmp    byte ptr [bx+13],'>'
        je    TabMarkHwDup

        cmp    byte ptr [bx+13],'+'
        je    TabMarkHwLoop

        mov    byte ptr [bx+13],'='
        jmp    short TabMarkHwLoop

  TabMarkHwDup:
        cmp    byte ptr [bx+13],'+'
        je    TabMarkHwLoop

        mov    byte ptr [bx+13],'>'
        jmp    short TabMarkHwLoop
  TabDupNext:
        sub    bx,16
        jns    TabDupLoop

        push    cs
        pop    ds
        ret
TabMarkGw    endp


;************************************************************************
;*        TabOpen
;************************************************************************

TabOpen     proc    near
        mov    ax,3d02h
        int    21h
        mov    Handle,ax
        jnc    TabOpenRet
        mov    al,'B'-'0'
        call    terminate
  TabOpenRet:
        ret
TabOpen     endp



;************************************************************************
;*        TabPutHw
;************************************************************************

TabPutHw    proc    near
        mov    ds,cs:SegIpHwTbl
        lea    si,[bx+4]
        call    PutHwNum

        mov    ds,cs:SegIpHwTbl
        cmp    byte ptr [bx+13],'>'
        clc
        jne    TabPutHwRet

        stc

  TabPutHwRet:
        push    cs
        pop    ds
        ret
TabPutHw    endp



;************************************************************************
;*        TabPutName
;************************************************************************

TabPutName    proc    near
        push    bx
        mov    ds,cs:SegIpHwTbl
        mov    bx,[bx+10]
        mov    cx,8
        mov    ds,cs:SegmNamTbl
        mov    si,bx
        mov    dl,[si]
        rep    movsw
        mov    cx,8
        mov    ds,cs:SegmNamTbl2
        mov    si,bx
        rep    movsw
        mov    ax,'# '
        stosw

        pop    bx
        push    bx
        mov    ds,cs:SegIpHwTbl
        mov    si,bx
        mov    ah,[si+12]
        cmp    ah,' '
        je    TabPutNotActive
;*test        inc    cs:TblActive
  TabPutNotActive:
        cmp    dl,'0'
        jb    TabPutKnown
        cmp    dl,'9'
        ja    TabPutKnown
        mov    al,'-'
  TabPutKnown:
        mov    dx,[si]
        mov    cx,[si+2]
        cmp    dx,[si+16]
        jne    TabPutNeN
        cmp    cx,[si+16+2]
        jne    TabPutNeN
        mov    al,'='
  TabPutNeN:
        cmp    dx,[si-16]
        jne    TabPutNeP
        cmp    cx,[si-16+2]
        jne    TabPutNeP
        mov    al,'<'
  TabPutNeP:
        stosw
        mov    al,[bx+13]
        stosb
        pop    bx
        ret
TabPutName    endp



;************************************************************************
;*        TabPutIp
;************************************************************************

TabPutIp    proc    near
        mov    ds,cs:SegIpHwTbl
        mov    si,bx
        call    PutIpNum
        ret
TabPutIp    endp



;************************************************************************
;*        TabWrLine
;************************************************************************

TabWrLine    proc    near
        push    bx
        mov    cx,di
        mov    dx,offset FileBuf
        sub    cx,dx
        mov    bx,Handle
        mov    ah,40h
        int    21h
        jnc    TabWrOK
  TabWrErr:
        mov    al,'W'-'0'
        call    terminate
  TabWrOK:
        pop    bx
        ret
TabWrLine    endp



;************************************************************************
;*        TabClose
;************************************************************************

TabClose    proc    near
        mov    byte ptr FileBuf,'Z'-40h
        mov    dx,offset FileBuf
        mov    cx,1
        mov    bx,Handle
        mov    ah,40h
        int    21h
        jc    TabWrErr

        mov    bx,Handle
        mov    ah,3eh
        int    21h
        jnc    TabHwClOK

        mov    al,'C'-'0'
        call    terminate
  TabHwClOK:
        ret
TabClose    endp



;************************************************************************
;*        TableWr
;************************************************************************

TableWr     proc    near
        cmp    TblSize,16
        ja    TableExist
        ret

  TableExist:
        push    bx

        call    TabMarkGw

        mov    dx,offset NameIpTbl
        call    TabOpen
        mov    bx,16
  TabIpNext:
        mov    di,offset FileBuf

        call    TabPutIp

        call    BlankUntil16

        call    TabPutName

        push    cs:ArgFlags
        and    cs:ArgFlags, not LANW_TABLE
        call    TabPutHw
        pop    ArgFlags

        mov    ax,CR+256*LF
        stosw

        call    TabWrLine

        add    bx,16
        cmp    bx,TblSize
        jb    TabIpNext

        call    TabClose

        mov    dx,offset NameHwTbl
        call    TabOpen
        mov    bx,16
;*test        mov    TblActive,0
  TabHwNext:
        mov    di,offset FileBuf
        call    TabPutHw
        pushf

        mov    al,' '
        stosb
        call    TabPutName

        call    TabPutIp

        push    cs
        pop    ds
        mov    ax,CR+256*LF
        stosw

        popf
;*test        jc    TabPutHwSkip

        call    TabWrLine
  TabPutHwSkip:
        add    bx,16
        cmp    bx,TblSize
        jb    TabHwNext

        call    TabClose

        pop    bx

        mov    di,offset MsgTblSize+6
        mov    ax,TblSize
        mov    cl,4
        shr    ax,cl
        dec    ax
        call    PutNum
        mov    di,offset MsgTblAct
        mov    ax,TblActive
        call    PutNum
        mov    dx,offset MsgTblSize
        mov    ah,9
        int    21h

        ret
TableWr     endp

;========================================================================